home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / yerk / mps231ss.hqx / Mops source / Module source / AlertQmod.txt next >
Text File  |  1993-02-01  |  372b  |  19 lines
  1. \ More Mac-like alternative to abort"
  2. \  May 90  Mops version.  Resource based.
  3.  
  4. need dialog
  5. need alert
  6.  
  7.     3    alert    ALRT
  8.  
  9. cfas{ null null null }  900  init: alrt
  10.  
  11. variable NUMSTR  10 allot
  12.  
  13. : (AL) { RC type addr len -- }
  14.  
  15.     numStr 14 blanks
  16.     RC dup abs  <# #s sign #>  numStr  swap 14 min cmove
  17.     addr len  numStr 14  0 0  0 0  paramText
  18.     type setType: alrt  show: alrt  ;
  19.